CD Fun House 1/CD Fun House (Wayzata Technology).iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_31944.txt

Text File | 1990-10-02 | 6KB | 266 lines

-- card: 31944 from stack: in.03 –µ–µ–µ
-- bmap block id: 11206
-- flags: 0000
-- background id: 2766
-- name:
----- HyperTalk script -----
on openCard
  send cardOpened to background
end openCard

on move
  global direction,chase,blasting
  if direction = "north" then
    put "You paddle until you bump into the north wall." into field 3
    exit move
  end if
  if direction = "south" then
    put "You paddle until you bump into the south wall." into field 3
    exit move
  end if
  if direction = "east" then
    go card id 31445
    exit move
  end if
  if direction = "west" then
    go to card id 32422
    exit move
  end if
  if direction = "exit" then
    put "You can paddle to either the east or west ledge by choosing east or west.  You don't want to exit into the water or you will drown." into field 3
    exit move
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried
  answer "Drop object into tub, or into the water?" with "water" or "tub"
  if it="water" then
    put "Splash!" into field 3
    put "33443" into dropRoom
  end if
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried
  -- update carried if use results in loss of object
  pass use
end use





-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=205 top=231 right=267 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=35 top=230 right=266 bottom=69
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=103 top=230 right=266 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=69 top=230 right=266 bottom=103
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=137 top=230 right=266 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=171 top=231 right=267 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=235 top=63 right=209 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global direction,cardID
  put "east" into direction
  send move to card id cardID
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=63 right=209 bottom=21
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global direction,cardID
  put "west" into direction
  send move to card id cardID
end mouseUp



-- part contents for background part 25
----- text -----
Inside Wash Tub
(floating)

-- part contents for background part 24
----- text -----
You are floating in the flooded Great Chamber inside a giant wash tub.  You are able to paddle the tub around with your hands -- not speedy, but it does get the job done.

-- part contents for background part 36
----- text -----
1